“ SiS8S8S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ee eS ae» a © a © ae 
Ae. Ge. Oe. Oe. Oe. Oe. Oe. Oe. Oe. Oe. A. Oe. he. et ts te ta ts te 
he be te be be Oe be be be be be be te te es a a te 


E RRRRRRRRRRRR 
E RRRRRRRRRRRR 
E RRRRRRRRRRRR 


Se ete e pete pec prelrelveyvelvelvulververververre) 
Se eee epeeteeleereeleelvelverververrel 
Soe edo d oe LoodeeRootoehootucleeteclvesectvelveneereelvenyel 


**F ILE**1D**CRYPTK 


AFOOOAOOOOON 
FGOOOOOOOOMY 


LLLLLLLLLL 
LLLLLLLLLL 


a4 
—— 
“4 
a4 


St st tt Ht HH Ht 
a a a at at at tt st 


i=J 
m 
o 


[=] 
COOCCCOOOCOOOOOOOOMMn 


ee ee efofofolololeleieloleletq) 


Ww 


COoooococooocoo 
WAWA.A AAW AAAI 


HN. A.A WANA A NAANW ve 


Lh ALA ALA AAI AAI AI PPI NINININININID 2 2 Ot OO 


COOSSSOSOOSOSOOOOOOO Oooo 


¥ 


N 4 
MB Reen eee Ig ee te MI SUMSRRS TEN PERE eecacrverk.ror:1 om” 


} 
SUBROUTINE CRYPTK (LUN,SIZE,NUMREG, REGISTERS ,REG_HERALD ,NAME ,UNIT) | 


1 
C 
$008 : Version: *v04-000' 
005 CRP eee eee AAAAAAAAARARE EAE EEEEEEEEE EEE AAA REAR EEe 
C* + 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
0008 C* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
sis » ALL RIGHTS RESERVED. * 
® 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
borg C* ONLY IN ACCORDANCE WITH THE TERMS OF UCH LICENSE AND WITH TH * 
001 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
bo1$ TRANSFERRED. * 
® 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Boss fe CORPORATION. * 
® 
4 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
O87 Ee SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
0025 C* * 
Bose “Rokk sian eM Seon ne Rt ee ernie 
00 
0028 C 
94 C 
ts : AUTHOR BRIAN PORTER CREATION DATE 18-SEP-1979 
003 C 
003 C Modified by: 
0034 C 
0035 C V03-001 SARO240 Sharon A. Reynolds, 22-Apr-1984 
0036 C Changed references to TOF routine to FRCTOF, function 
sit H4 : performed by the routine is the same. 
0039 C v02-001 $R0001 Sharon Reynolds, 19-Nov-1980 
0040 C Added a ton to allow the BRIEF module to know that it 
0041 C was called from CRYPTK to fix the predice of the device 
Ooeg ; registers being printed twice on the cryptk report. 
0044 Cee 
0045 
one INCLUDE *SRC$:SYECOM.FOR /NOLIST' 
0175 BYTE LUN 
0176 
0177 BYTE NUMREG 
0178 
0179 BYTE SIZE | 
3180 
o181 INTEGER®2 UNIT | 
B88 INTEGER*4 REGISTERS (0: NUMREG-1) 
0184 | 
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INTEGER®4 FIELD 
CHARACTER®(*) REG_HERALD(0:NUMREG~1) 
CHARACTER*3 NAME 


Cryptk_flag = .true. 
FIELD = LIBSLP_LINES() 
IF (CLINES .EQ@. 1) 


ND. 
INES .EQ. (FIELD = 3))) 
.NOT. FORMS) 


IF (FORMS) CALL FRCTOF (LUN) 

IF (SIZE .€Q. 16) THEN 

CALL BRIEF16 (LUN,NUMREG, REGISTERS ,REG_HERALD ,NAME ,UNIT) 
ELSE IF (SIZE .€Q. 32) THEN 

FALL GRIEF Se (LUN,NUMREG ,REGISTERS ,REG_HERALD ,NAME ,UNIT) 


IF (.NOT. FORMS) LINES = 3 
ENDIF 


IF (SIZE .E€Q. 16) THEN 

CALL BRIEF16_A (LUN,NUMREG REGISTERS) 
ELSE IF (SIZE .€Q. 32) THEN 

CALL ORIEFS2A (LUN,NUMREG ,REGISTERS) 


RETURN 
END 
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PROGRAM SECTIONS 
Name 
SCODE 
SLOCAL 
SYECOM 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 CRYPTK 


VARIABLES 
Address Type Name 
CP_11750 


LSTLUN 
3-0000001F I*4 MAILBOX_CHANNEL 
NUMREG 
: : PRINTER 
=00000025 [#4 4 le SIZE 
L*1 VALID_CPU 
VALID— TYPE 
ARRAYS 
Address Type Name 
AP-000000108 I*4 REGISTERS 
AP-00000014a@ CHAR REG_HERALD 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
BRIEF 16 


Type Name 
BRIEF16_A 


Bytes 
39 
44 


486 


Bytes 


| 
ib-5e -1984 9:1 VAX=-11 FORTRAN V3.4-56 P 
~SEB=1984 19:50:68 DISKSVMSRASTER: TERE, SRCICRYPTK.FOR:1 9% J 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Address Type Name 
a4 9B L*1 P_11780 
-00000014 L*4 CRYPTK_FLAG 
3-Q000001E L*1 ND_VACU 
4's ''4 44 I*4 FIECD 
-0000000C L*1 LINES 
AP-000000048 L*1 LUN 
AP-00000018@ CHAR NAME 
mss 46 CHAR OPTIONS 
-00000000 I[*4 CCNT 
AP-000000088 L*1 SIZE 
-00000019 L*1l VALID_CLASS 
Oko kOe L*1 VALID-ENTRY 
-00000018 L*1 VOLUME_OUTPUT 
Dimensions 
(O:*) 
(0:2) 
Type Name Type Name Type Name Type Name | 
BRIEF 32 BRIEF32_A FRCTOF I*4 LIBSLP_LINES 
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CRYPTK IBese Sep~1984 VAX=11 FORTRAN V3.4-5 Page 4 
3657138 9: 43: 13 DISK VMSMASTER: LERF F.S SRCICRYPTK. FOR; 1 si 
COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:CRYPTK/OBJ=OBJ$:CRYPTK MSRC$:CRYPTK 


/CHECK= (NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUGS ibe STATA EBACK) 


COMPILATION STATISTICS 


Run Time: 1.74 seconds 
Elapsed Time: 5.52 seconds 
Page Faults: 105 

Dynamic Memory: 170 pages 


PMENT CORPORATION 
.AND PROPRIETARY 
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